﻿Public Class AnimationExplosionLuft
    Inherits ObjektAnimation
    ''' <summary>
    ''' Führt eine Explosion aus und zerstört die Einheit
    ''' </summary>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 9
        BildID = LoadTextur("Explosion+Luft", Frames)
        If Musikspielen = True Then
            MusikEngine.LoadWav(My.Settings.Resourcenpfad + "Sound\Explosion+Luft.wav", False)
        End If
    End Sub
End Class
